object EditCom: TEditCom Left = 186 Top = 192 Width = 527 Height = 300 Caption = 'Edit Command Buffer' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] KeyPreview = True Menu = MainMenu1 ShowHint = True Visible = True OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 519 Height = 27 Align = alTop BevelOuter = bvLowered TabOrder = 0 object BoldButton: TSpeedButton Left = 201 Top = 1 Width = 25 Height = 25 Hint = 'Bold|' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333338888888888333330000000000 3333333338883338883333330003330003333333388833338883333300033330 0033333338883333888333330003333000333333388833338883333300033330 0033333338883338883333330003330003333333388888888333333300000000 3333333338883338883333330003330003333333388833338883333300033330 0033333338883333888333330003333000333333388833388833333300033300 0333333888888888833333000000000033333333333333333333333333333333 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = BoldButtonClick end object ColorButton: TSpeedButton Left = 225 Top = 1 Width = 25 Height = 25 Hint = 'Color|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333000000000000033300000000000003330DDD06660F FF033308880888088803330DDD06660FFF033308880888088803330DDD06660F FF03330888088808880333000000000000033300000000000003330BBB08880E EE033308880888088803330BBB08880EEE033308880888088803330BBB08880E EE033308880888088803330000000000000333000000000000033309990AAA0C CC0333088808880888033309990AAA0CCC0333088808880888033309990AAA0C CC03330888088808880333000000000000033300000000000003333333333333 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = ColorButtonClick end object SendButton: TSpeedButton Left = 121 Top = 1 Width = 25 Height = 25 Hint = 'Send|' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = SendandClose1Click end object OpenButton: TSpeedButton Left = 33 Top = 1 Width = 25 Height = 25 Hint = 'Open|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = Open1Click end object SaveButton: TSpeedButton Left = 57 Top = 1 Width = 25 Height = 25 Hint = 'Save|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000888888 800333FFFFFFFFFFFFF33000008777777000388888888888883F300000870077 70008F3338F3FF38F38F30000087007770008F3338F88F38F38F300000877777 70008F3338F88FF8F38F30000000000000008F3338888888338F300000000000 00008F3FFFFFFFFFFF8F3000FFFFFFFFF0008F88888888888F8F3000FFFFFFFF F0008F8F333333338F8F3000FFFFFFFFF0008F8F333333338F8F3000FFFFFFFF F0008F8F333333338F8F3000FFFFFFFFF0008F8F333333338F8F3000FFFFFFFF F0808F8F333333338F8F3000FFFFFFFFF0008F8F33333333888F330099999999 9003838FFFFFFFFF8F8333333333333333333888888888888833000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = Save1Click end object CaptButton: TSpeedButton Left = 89 Top = 1 Width = 25 Height = 25 Hint = 'Capture|' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 OnClick = Capture1Click end object Toggle: TSpeedButton Left = 257 Top = 1 Width = 25 Height = 25 Hint = 'Toggle Capture|' AllowAllUp = True GroupIndex = 2 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = ToggleClick end object Parse: TSpeedButton Left = 281 Top = 1 Width = 25 Height = 25 Hint = 'Parse Commands|' AllowAllUp = True GroupIndex = 3 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 003337777777777777F330FFFFFFFFFFF033373F3F3F3F3F3733330F0F0F0F0F 03333F7F737373737FFF0000FFFFFFF0000377773FFFFFF7777F0FF800000008 FF037F3F77777773FF7F0F9FFFFFFFF000037F7333333337777F0FFFFFFFFFFF FF0373FFFFFFFFFFFF7330000000000000333777777777777733333000000000 3333333777777777F3333330FFFFFFF033333337F3FFFFF7F3333330F00000F0 33333337F77777F7F3333330F0AAE0F033333337F7F337F7F3333330F0DAD0F0 33333337F7FFF7F7F3333330F00000F033333337F7777737F3333330FFFFFFF0 33333337FFFFFFF7F333333000000000333333377777777733330000} NumGlyphs = 2 OnClick = ParseClick end object PrefixBtn: TSpeedButton Left = 346 Top = 5 Width = 16 Height = 16 Hint = 'Prefix Toggle|' AllowAllUp = True GroupIndex = 5 OnClick = PrefixBtnClick end object SendSelectBtn: TSpeedButton Left = 145 Top = 1 Width = 25 Height = 25 Hint = 'Send Selected Text|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333338FF3333333333333903333333333333388FF33333333333399 03333FFFFFFFFF888FF3000000999999903388888888888888FF0FFFF0999999 99038F3338888888888F0FFFF099999999908F3FF888888888880C77C0999999 99038F883888888888830CCCC099999990338F3FF888888888330C77CCCCC099 03338F883333388883330CCCCCCCC09033338F3FF3FFF88833330C77C0000003 33338F883888888333330FFFF0FF033333338F3FF8F3833333330F07F0F03333 33338F8838F8333333330FFFF003333333338FFFF88333333333000000333333 3333888888333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SendSelectBtnClick end object SendLineBtn: TSpeedButton Left = 169 Top = 1 Width = 25 Height = 25 Hint = 'Send Line|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333338FF3333333333333903333333333333388FF33333333333399 03333FFFFFFFFF888FF3000000999999903388888888888888FF0FFFF0999999 99038F3338888888888F0FFFF099999999908F3FF888888888880F00F0999999 99038F883888888888830FFFF099999990338F3FF888888888330CCCCCCCC099 03338F883333388883330FFFFFFFF09033338F3FF3FFF88833330F00F0000003 33338F883888888333330FFFF0FF033333338F3FF8F3833333330F07F0F03333 33338F8838F8333333330FFFF003333333338FFFF88333333333000000333333 3333888888333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SendLineBtnClick end object TopBtn: TSpeedButton Left = 1 Top = 1 Width = 25 Height = 25 Hint = 'Keep on top|' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 3333333333333333333333333330333333333333333333333333333333303333 3333333333333333333333333330333333333333333333333333333333303333 3333333333333333333333339999999333333333333333333333339999999999 9333333333333333333333999111119913333333333333333333333919999911 3333333333333333333333339999991333333333333333333333333399999913 3333333333333333333333339111111333333333333333333333333319999913 3333333333333333333333399999999933333333333333333333333399999993 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = TopBtnClick end object SyntaxBtn: TSpeedButton Left = 305 Top = 1 Width = 25 Height = 25 Hint = 'Use Color Syntax|' AllowAllUp = True GroupIndex = 4 Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333330333330003300033333333333333333303333033330 3303333333333333333330333300003033033333333333333333300303033030 3303333333333333333330303330033300033333333333333333333333333333 3303333333333333333333333333333333033333333333333333300000003333 3333333333333333333330999990333003333333333333333333309999903330 0033333333333333333330999990300000033333333333333333309999903330 0033333333333333333330999990333003333333333333333333300000003333 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SyntaxBtnClick end object PrefixList: TComboBox Left = 368 Top = 3 Width = 145 Height = 21 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 0 OnChange = PrefixListChange OnEnter = PrefixListEnter OnExit = PrefixListExit end end object UserIn: TAnsi Left = 0 Top = 27 Width = 519 Height = 227 Cursor = crIBeam MaxSize = 0 ScrollBars = ssBoth AutoFreeze = False ReadOnly = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] TabOrder = 1 Color = clBlack ParentColor = False ParentFont = False TabStop = True Align = alClient OnKeyDown = UserInKeyDown end object MainMenu1: TMainMenu Left = 392 Top = 16 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Open1: TMenuItem Caption = '&Open...' ShortCut = 0 OnClick = Open1Click end object Save1: TMenuItem Caption = 'Sa&ve' ShortCut = 0 OnClick = Save1Click end object SaveAs1: TMenuItem Caption = 'Save &As...' ShortCut = 0 OnClick = SaveAs1Click end object Import1: TMenuItem Caption = '&Import...' ShortCut = 0 OnClick = Import1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Capture1: TMenuItem Caption = '&Capture' ShortCut = 0 OnClick = Capture1Click end object SendandClose1: TMenuItem Caption = '&Send' ShortCut = 0 OnClick = SendandClose1Click end object SendSelected1: TMenuItem Caption = 'Send Selected' ShortCut = 0 OnClick = SendSelectBtnClick end object SendLine1: TMenuItem Caption = 'Send &Line' ShortCut = 0 OnClick = SendLineBtnClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object PrinterSetup1: TMenuItem Caption = 'Printer Setup...' ShortCut = 0 OnClick = PrinterSetup1Click end object Print1: TMenuItem Caption = '&Print' ShortCut = 0 object Buffer1: TMenuItem Caption = '&Buffer' ShortCut = 0 OnClick = Buffer1Click end object Selected1: TMenuItem Caption = '&Selected' ShortCut = 0 OnClick = Selected1Click end object Screen1: TMenuItem Caption = 'Scree&n' ShortCut = 0 OnClick = Screen1Click end object N8: TMenuItem Caption = '-' ShortCut = 0 end object Color2: TMenuItem Caption = 'Color' ShortCut = 0 OnClick = Color2Click end end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'C&lose' ShortCut = 0 OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' ShortCut = 0 object Cut1: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = Cut1Click end object Copy1: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = Copy1Click end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = Paste1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object SelectAll1: TMenuItem Caption = 'Select &All' ShortCut = 16449 OnClick = SelectAll1Click end object Clear1: TMenuItem Caption = 'C&lear Selection' ShortCut = 0 OnClick = Clear1Click end object ClearAll1: TMenuItem Caption = 'Clear All' ShortCut = 16430 OnClick = ClearAll1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Find1: TMenuItem Caption = '&Find...' ShortCut = 0 OnClick = Find1Click end end object Text1: TMenuItem Caption = '&Options' ShortCut = 0 OnClick = Text1Click object Color1: TMenuItem Caption = '&Color...' ShortCut = 0 OnClick = Color1Click end object Bold1: TMenuItem Caption = '&Bold' ShortCut = 0 OnClick = Bold1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object Capture2: TMenuItem Caption = '&Capture' ShortCut = 0 OnClick = ToggleClick end object Prefix1: TMenuItem Caption = 'Pre&fix' ShortCut = 0 OnClick = PrefixBtnClick end object Parse1: TMenuItem Caption = '&Parse' ShortCut = 0 OnClick = Parse1Click end object ColorSyntax1: TMenuItem Caption = 'Color Syntax' ShortCut = 0 end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Options1: TMenuItem Caption = '&Strings...' ShortCut = 0 OnClick = Options1Click end end object Window1: TMenuItem Caption = '&Window' ShortCut = 0 object Refresh1: TMenuItem Caption = '&Refresh' ShortCut = 16467 OnClick = Refresh1Click end end end object OpenFile: TOpenDialog DefaultExt = 'TXT' FileEditStyle = fsEdit Filter = 'Text Files|*.txt|All Files|*.*' Options = [ofFileMustExist] Left = 360 Top = 16 end object SaveFile: TSaveDialog DefaultExt = 'TXT' FileEditStyle = fsEdit Filter = 'Text Files|*.txt|All Files|*.*' Options = [ofOverwritePrompt, ofHideReadOnly] Left = 328 Top = 16 end object FindDlg: TFindDialog Options = [frDown, frHideMatchCase, frHideWholeWord] OnFind = FindDlgFind Left = 328 Top = 48 end end